home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / db.c < prev    next >
C/C++ Source or Header  |  1995-10-13  |  770b  |  31 lines
  1. /* This is an Scheme48/C interface file, 
  2. ** automatically generated by cig.
  3. */
  4.  
  5. #include <stdio.h>
  6. #include <stdlib.h> /* For malloc. */
  7. #include "libcig.h"
  8.  
  9. #include <sys/types.h>
  10. #include <limits.h>
  11. #include "/usr/local/include/db.h"
  12.  
  13. extern int errno;
  14.  
  15. #define errno_or_false(x) (((x) == -1) ? ENTER_FIXNUM(errno) : SCHFALSE)
  16.  
  17. scheme_value df_db_open(long nargs, scheme_value *args)
  18. {
  19.     extern int db_open(const char *, int , int , int , DB** *);
  20.     scheme_value ret1;
  21.     int r1;
  22.     DB** r2;
  23.  
  24.     cig_check_nargs(5, nargs, "db_open");
  25.     r1 = db_open(cig_string_body(args[4]), EXTRACT_FIXNUM(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), &r2);
  26.     ret1 = errno_or_false(r1);
  27.     AlienVal(VECTOR_REF(*args,0)) = (long) r2;
  28.     return ret1;
  29.     }
  30.  
  31.